SEMIOGRAPHIC

Aircraft carriers by country

isotypes

Photo by Kukuh Napaki on Unsplash

Photo by Kukuh Napaki on Unsplash

quote…
— attribution


Ingest

brand, variety, style, country, and stars

df_ingest <- read.csv("archetypes/rating-ramen/rating-ramen.csv", header = TRUE)
df_ingest

Wrangle

filter, sort, and set order

Plot

rankings and chopsticks

v1 <- ggplot() +
  # chopstics
  geom_polygon(aes(x = c(-30, 32, 32, -30), y = c(0.02, 0.02, 0.1, 0.3)),
               fill = "firebrick4") +
  geom_polygon(aes(x = c(-30, 32, 32, -30), y = c(0.35, 0.12, 0.2, 0.63)),
               fill = "firebrick4") +
  # stars
  geom_text(aes(x = -20,  y = c(1.1, 2.1, 3.1, 4.1, 5.1),
                label = c("1 star", "2 stars", "3 stars", "4 stars", "5 stars")),
            color = "gray85", size = 2, hjust = 0,
            family = "IBM Plex Mono") +
  geom_segment(aes(x = -20, y = c(0.99, 1.99, 2.99, 3.99, 4.99),
                   xend = c(0.6, 1.6, 3.6, 9.6, 23.6), yend = c(0.99, 1.99, 2.99, 3.99, 4.99)),
               color = "gray85", size = 0.3, alpha = 0.5) +
  # 5 starred
  geom_text(data = df_wrangle, aes(x = n, y = -0.2,
                label = paste(brand, variety, sep = " - ")),
            size = 1.8, family = "IBM Plex Sans",
            hjust = 0, angle = 90, color = "gray85") +
    
  # ramen               
  geom_col(data = df_wrangle, aes(n, stars), width = 0.5, fill = "khaki") +
  scale_y_reverse(limits = c(8, -5), breaks = c(1, 2, 3, 4, 5), position = "right") +
  # title, subtitle and caption
  geom_text(aes(x = 32, y = 7.4, label = "Ratings of Japanese Instant Shio Ramen"),
            family = "IBM Plex Serif SemiBold", hjust = 1,
            color = "white", size = 4.5) +
  geom_text(aes(x = 32, y = 7.8, label = ""),
            family = "IBM Plex Sans", hjust = 1,
            color = "white", size = 3) +
  
  theme_void() +
  theme(
    panel.background = element_rect(fill = "#0881A3", color = "#0881A3"),
  )

 girafe(ggobj = v1, width_svg = 9.0, height_svg = 16.0,
        options = list(opts_sizing(rescale = TRUE, width = 1)))

References

The citations and data sources used for this case

Graphic: Georgios Karamanis Source: TheRamenRater.com